home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / taskvb4 / taskbar.bas < prev    next >
Encoding:
BASIC Source File  |  1995-10-15  |  1.2 KB  |  53 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Type NOTIFYICONDATA
  5.     lStructureSize    As Long
  6.     hWnd   As Long
  7.     lID As Long
  8.     lFlags As Long
  9.     lCallBackMessage As Long
  10.     hIcon As Long
  11.     sTip As String * 64
  12. End Type
  13.  
  14. Type lRect
  15.     Left As Long
  16.     Top As Long
  17.     Right As Long
  18.     Bottom As Long
  19. End Type
  20.  
  21. Type APPBARDATA
  22.     lStructureSize As Long
  23.     hWnd As Long
  24.     lCallBackMessage As Long
  25.     lEdge As Long
  26.     rc As lRect
  27.     lParam As Long
  28. End Type
  29.  
  30.  
  31. Declare Function Shell_NotifyIcon& Lib "shell32.DLL" (ByVal lMessage&, NID As NOTIFYICONDATA)
  32. Declare Function SHAppBarMessage& Lib "shell32.DLL" (ByVal dwMessage&, pData As APPBARDATA)
  33.  
  34. Global idShell_NotifyIcon&
  35. Global idSHAppBarMessage&
  36.  
  37. Global Const NIM_ADD = 0&
  38. Global Const NIM_DELETE = 2&
  39. Global Const NIM_MODIFY = 1&
  40. Global Const NIF_ICON = 2&
  41. Global Const NIF_MESSAGE = 1&
  42. Global Const NIF_TIP = 4&
  43.  
  44. Global Const ABM_GETTASKBARPOS = &H5&
  45.  
  46. Global structNotify As NOTIFYICONDATA
  47. Global structBarData As APPBARDATA
  48.  
  49. 'Message blaster callback stuff
  50. Const WM_USER = &H400
  51. Global Const UM_TASKBARMESSAGE = WM_USER + &H201
  52. Global Const POSTPROCESS = 1
  53.